6 DV=PEEK(186):IFDV<8THENDV=8
10 DIMF$(8):FORI=1TO8:READF$(I):NEXT
20 DATA 1040,1040A,1040EZ,SCHA,SCHC,SCHSE,READER C800,HELLO CONNECT
30 DIMM$(8):FORI=1TO8:READM$(I):NEXT
35 DATA " 1040                         "
36 DATA " 1040[193]                        "
37 DATA " 1040[197][218]                       "
38 DATA " [211]CHEDULE [193] ([196]EDUCTIONS)      "
39 DATA " [211]CHEDULE [195] ([194]USINESS)        "
40 DATA " [211]CHEDULE [211][197] ([211]HORT [198]ORM)     "
42 DATA " [201]NSTRUCTIONS                 "
43 DATA " [204]OADSTAR                     "
100 POKE53281,0:POKE53280,0:POKE53272,23:PRINT"[147][153]";
190 PRINTTAB(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
191 PRINTTAB(5)"[221][155]                              [153][146][221]"
192 PRINTTAB(5)"[221][155]       [212]AX [193]CCOUNTANT         [153][146][221]"
194 PRINTTAB(5)"[221][155]    BY [194]ARBARA [200]. [211]CHULAK     [153][146][221]"
196 PRINTTAB(5)"[221][155]  [208]UBLISHED ON [204]OADSTAR #104  [153][146][221]"
198 PRINTTAB(5)"[221][155]      (C) 1993 [211]OFTDISK       [153][146][221]"
200 PRINTTAB(5)"[221][155] [211]UBSCRIPTIONS 1-800-831-2694 [153][146][221]"
202 PRINTTAB(5)"[221][155]                              [153][146][221]"
220 PRINTTAB(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
290 :
300 SYS57812"TOOL BOX C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
301 SYS57812"NOTEPAD C900",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
302 SYS49152+18,5,13,30,8,1,0
304 POKE214,13:PRINT:FOR I=1TO8:PRINTTAB(6)"[154]"M$(I):NEXT:POKE198,0
306 SYS49152+12,6,14,35,8,14,1
308 K=PEEK(828)
325 F$=F$(K)
330 ONKGOTO60000,60000,60000,60000,60000,60000,1000,40000
340 GOTO306
350 :
1000 SYS49152+3,1:PRINT"[147]"TAB(14)"[150]*** [200][197][204][208] ***"
1005 SYS49152+18,0,1,38,21,1,0
1010 H$="T.INSTR"
1014 SYS49152+33
1015 SYS49152+21,"[208]RESS [210][197][212][213][210][206]     _ TO [197]XIT",24,13,0
1020 OPEN2,DV,2,H$+",P,R":SYS49152+30,14
1025 POKE198,0
1026 SYS49152+21,"       [208]RESS [210][197][212][213][210][206]       ",24,10,0
1030 GETK$:IFK$<>CHR$(13)THEN1030
1031 POKE 198,0
1035 CLOSE2:SYS49152+6,1:GOTO304
1040 :
10000 OPEN15,8,15,"S0:TAX BOOT":CLOSE15:SAVE"0:TAX BOOT",8:END
10100 :
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
60000 FORI=0TO8:POKE781,I:SYS59903:NEXT:PRINT
60006 A$=F$:OPEN15,DV,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
60010 IF ER<>63 THENPRINT"[147]":END
60011 Q$=CHR$(34):POKE646,PEEK(53281)
60020 PRINT"LOAD"Q$A$Q$","DV
60030 PRINT"RUN":POKE631,13:POKE632,13:POKE633,13:POKE198,3:END